home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tp.d64
/
double pinball.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-11
|
1KB
|
30 lines
100 SYS3160:PRINTTAB(17)"PLAY":PRINTTAB(12)"DOUBLE PINBALL"
110 PRINTTAB(7)"TRY TO ELIMINATE ALL PINS":PRINTTAB(10)"KEYBOARD CONTROL:"
115 PRINT"LEFT PLR"SPC(23)"RIGHT PLR";
120 PRINT" [213][195][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][195][201]"
130 PRINT" [194]SH[146][194][194]Z[146][194][194]X[194][194]C[194][194]V[194][194]B[194][194]N[194][194]M[194][194],[194][194].[194][194]/[146][194][194]SH[146][194]
140 [153]" MID$LENLEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LEN(null)MID$LENLEN(null)"
160 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
170 PRINT" [194] SPACE BAR (SERVE BALL)[194][160]
180 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)
190 PRINT""TAB(12)"SCORE TABLE:"
192 PRINT" FROM '*' = 1 POINT TO '[211]' = 6 POINTS"
194 PRINT" ALL PINS DESTROYED = 5 EXTRA BALLS"
196 PRINT" PRESS 'F7' TO START THE GAME !!!";
199 IFPEEK(203)<>3THEN199
200 B=9:D(0)=39:D(1)=41:C$="":SYS3200
210 PRINTC$TAB(14)B"[157][214]":O=1065:P=1425+INT(RND(0)*19)*2:POKEP,33
220 R=INT(RND(0)*2-1):M=D(1+R):IFPEEK(203)<>60THEN220
230 POKEP,81:POKEO,32:PRINTC$TAB(31)S:O=P
240 T=P+M:IFT>2023THEN310
250 IFPEEK(T)=32THEN280
260 IFPEEK(T)<128THEN290
270 R=NOTR:M=D(1+R)*SGN(-M):IFPEEK(P+M)<>32THENM=-M:GOTO240
280 P=P+M:GOTO230
290 S=S+6-INT((T-1145)/40):POKET,32:POKET+54272,1:H=H+1:IFH<114THEN270
300 H=0:B=B+5:POKEO,32:SYS3342:GOTO210
310 B=B-1:SYS3301:IFB>=0THEN210
320 PRINT""TAB(11)"G A M E O V E R"
330 IFPEEK(203)<>3THEN330
340 RUN